Light & Shade: Niida Takashi/Light & Shade: Niida Takashi.iso/mac/WIN/PRINT.Dxr/00155_ÉvÉäÉìÉg-B.ls

Text File | 1998-09-06 | 7.5 KB | 334 lines

on mouseDown
  global prtname, flg, prt, workara, prmk
  puppetSprite(56, 1)
  set the castNum of sprite 56 to cast "ﾃ益ﾃ嘉､ﾃ嘉ｬﾃ曳BR"
  updateStage()
  puppetSprite(56, 0)
  puppetSprite(57, 0)
  puppetSprite(58, 0)
  puppetSprite(59, 0)
  puppetSprite(60, 0)
  puppetSprite(61, 0)
  puppetSprite(62, 0)
  puppetSprite(54, 1)
  set prtname to the memberNum of sprite 54
  case prtname of
    "152":
      go("me")
    otherwise:
      if flg = 0 then
        case prtname of
          "51":
            set prmk to 162
            set prt to 51
          "52":
            set prmk to 163
            set prt to 52
          "53":
            set prmk to 164
            set prt to 53
          "54":
            set prmk to 165
            set prt to 54
          "55":
            set prmk to 166
            set prt to 55
          "56":
            set prmk to 167
            set prt to 56
          "57":
            set prmk to 168
            set prt to 57
          "58":
            set prmk to 169
            set prt to 58
          "59":
            set prmk to 170
            set prt to 59
          "60":
            set prmk to 171
            set prt to 60
          "61":
            set prmk to 172
            set prt to 61
          "62":
            set prmk to 173
            set prt to 62
          "63":
            set prmk to 174
            set prt to 63
          "64":
            set prmk to 175
            set prt to 64
          "65":
            set prmk to 176
            set prt to 65
          "66":
            set prmk to 177
            set prt to 66
          "67":
            set prmk to 178
            set prt to 67
          "68":
            set prmk to 179
            set prt to 68
          "69":
            set prmk to 180
            set prt to 69
          "70":
            set prmk to 181
            set prt to 70
          "71":
            set prmk to 182
            set prt to 71
          "72":
            set prmk to 183
            set prt to 72
          "73":
            set prmk to 184
            set prt to 73
          "74":
            set prmk to 185
            set prt to 74
          "75":
            set prmk to 186
            set prt to 75
          "76":
            set prmk to 187
            set prt to 76
          "77":
            set prmk to 188
            set prt to 77
          "78":
            set prmk to 189
            set prt to 78
          "79":
            set prmk to 190
            set prt to 79
          "80":
            set prmk to 191
            set prt to 80
          "81":
            set prmk to 192
            set prt to 81
          "82":
            set prmk to 193
            set prt to 82
          "83":
            set prmk to 194
            set prt to 83
          "84":
            set prmk to 195
            set prt to 84
          "85":
            set prmk to 196
            set prt to 85
          "86":
            set prmk to 197
            set prt to 86
          "87":
            set prmk to 198
            set prt to 87
          "88":
            set prmk to 199
            set prt to 88
          "89":
            set prmk to 200
            set prt to 89
          "90":
            set prmk to 201
            set prt to 90
          "91":
            set prmk to 202
            set prt to 91
          "92":
            set prmk to 203
            set prt to 92
          "93":
            set prmk to 204
            set prt to 93
          "94":
            set prmk to 205
            set prt to 94
          "95":
            set prmk to 206
            set prt to 95
          "96":
            set prmk to 207
            set prt to 96
          "97":
            set prmk to 208
            set prt to 97
          "98":
            set prmk to 209
            set prt to 98
          "99":
            set prmk to 210
            set prt to 99
          "100":
            set prmk to 211
            set prt to 100
        end case
        puppetSprite(54, 0)
        set workara to "PR" & prt
        go(workara)
      else
        case prtname of
          "51":
            set prmk to 101
            set prt to 1
          "52":
            set prmk to 102
            set prt to 2
          "53":
            set prmk to 103
            set prt to 3
          "54":
            set prmk to 104
            set prt to 4
          "55":
            set prmk to 105
            set prt to 5
          "56":
            set prmk to 106
            set prt to 6
          "57":
            set prmk to 107
            set prt to 7
          "58":
            set prmk to 108
            set prt to 8
          "59":
            set prmk to 109
            set prt to 9
          "60":
            set prmk to 110
            set prt to 10
          "61":
            set prmk to 111
            set prt to 11
          "62":
            set prmk to 112
            set prt to 12
          "63":
            set prmk to 113
            set prt to 13
          "64":
            set prmk to 114
            set prt to 14
          "65":
            set prmk to 115
            set prt to 15
          "66":
            set prmk to 116
            set prt to 16
          "67":
            set prmk to 117
            set prt to 17
          "68":
            set prmk to 118
            set prt to 18
          "69":
            set prmk to 119
            set prt to 19
          "70":
            set prmk to 120
            set prt to 20
          "71":
            set prmk to 121
            set prt to 21
          "72":
            set prmk to 122
            set prt to 22
          "73":
            set prmk to 123
            set prt to 23
          "74":
            set prmk to 124
            set prt to 24
          "75":
            set prmk to 125
            set prt to 25
          "76":
            set prmk to 126
            set prt to 26
          "77":
            set prmk to 127
            set prt to 27
          "78":
            set prmk to 128
            set prt to 28
          "79":
            set prmk to 129
            set prt to 29
          "80":
            set prmk to 130
            set prt to 30
          "81":
            set prmk to 131
            set prt to 31
          "82":
            set prmk to 132
            set prt to 32
          "83":
            set prmk to 133
            set prt to 33
          "84":
            set prmk to 134
            set prt to 34
          "85":
            set prmk to 135
            set prt to 35
          "86":
            set prmk to 136
            set prt to 36
          "87":
            set prmk to 137
            set prt to 37
          "88":
            set prmk to 138
            set prt to 38
          "89":
            set prmk to 139
            set prt to 39
          "90":
            set prmk to 140
            set prt to 40
          "91":
            set prmk to 141
            set prt to 41
          "92":
            set prmk to 142
            set prt to 42
          "93":
            set prmk to 143
            set prt to 43
          "94":
            set prmk to 144
            set prt to 44
          "95":
            set prmk to 145
            set prt to 45
          "96":
            set prmk to 146
            set prt to 46
          "97":
            set prmk to 147
            set prt to 47
          "98":
            set prmk to 148
            set prt to 48
          "99":
            set prmk to 149
            set prt to 49
          "100":
            set prmk to 150
            set prt to 50
        end case
        puppetSprite(54, 0)
        set workara to "PR" & prt
        go(workara)
      end if
  end case
end